home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94a.d64 / fast little demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  80 lines
  1. 1 IFA=0THENA=A+1:LOAD"PLAYER 2X2",8,1
  2. 5 SYS 9*4096+11*256
  3. 10 POKE 53280,0:POKE 53281,0:PRINT"[147]"
  4. 20 A$="S.EXAMPLE"
  5. 30 PRINT"      INSERT DISK"
  6. 40 GET X$:IF X$="" THEN 40
  7. 45 PRINT "[145]          >> PLEASE WAIT <<"
  8. 50 PRINT "             >> LOADING <<"
  9. 150 !LADE A$
  10. 160 !XXYY 4,4
  11. 170 PRINT"[147]"
  12. 180 PRINT"   SIE SEHEN JETZT EINE KLEINE..."
  13. 185 FORT=0TO500:NEXT
  14. 190 !PLAY 22,27
  15. 191 FORT=0TO40:NEXT
  16. 192 !SHOW 17
  17. 193 FORT=0TO40:NEXT
  18. 194 !SHOW 16
  19. 195 FORT=0TO40:NEXT
  20. 200 !PLAY 16,22
  21. 210 !SHOW 30
  22. 215 FORT=0TO500:NEXT
  23. 220 PRINT"[147]  ZU EINIGEN MOEGLICHKEITEN VON ..."
  24. 230 FORT=0TO500:NEXT
  25. 239 FORT=0TO2
  26. 240 !SHOW 28
  27. 245 FORG=0TO140:NEXT
  28. 250 !SHOW 29
  29. 255 FORG=0TO140:NEXT
  30. 260 NEXT:PRINT"[147]"
  31. 270 !SHOW 31
  32. 271 FORX=0TO31
  33. 272 FORY=0TO31
  34. 273 !DRAW 31,X,Y,17
  35. 274 !DRAW 31,63-X,Y,17
  36. 275 NEXT:!SHOW 31:NEXT
  37. 290 !SHOW 32
  38. 291 FORX=0TO31
  39. 292 FORY=0TO31
  40. 293 !DRAW 32,X,Y,6
  41. 294 !DRAW 32,63-X,Y,6
  42. 295 NEXT:!SHOW 32:NEXT
  43. 300 FORT=27 TO 22 STEP -1
  44. 310 !SHOW T
  45. 320 FORG=0TO40:NEXT
  46. 330 NEXT
  47. 340 PRINT"EIN EINSATZ IN BASICADVENTURES IST SEHR EINFACH UND DURCH DIE BILD-"
  48. 350 PRINT"SPEICHERUNG UNTERM ROM IST GENUG PLATZ  FUER KNIFFLIGE AUFGABEN"
  49. 360 FORG=0TO4000:NEXT
  50. 370 PRINT"[147]"
  51. 380 PRINT"--> ODER IN LERNPROGRAMMEN MIT"
  52. 390 PRINT"    MIT ANIMATIONEN WIE DIESER"
  53. 400 FORT=0 TO 10
  54. 410 !PLAY 0,15
  55. 420 NEXT
  56. 440 PRINT"[147]--> ODER IN KLEINEN DEMOS WIE DIESER"
  57. 450 FORT=0TO500:NEXT
  58. 460 !PLAY 22,27
  59. 470 FORT=0TO40:NEXT
  60. 480 !SHOW 17
  61. 490 FORT=0TO40:NEXT
  62. 500 !SHOW 16
  63. 510 FORT=0TO40:NEXT
  64. 520 !PLAY 16,22
  65. 530 !SHOW 30
  66. 540 FORG=0TO1000:NEXT
  67. 550 PRINT"[147]--> ODER ZUR DARSTELLUNG TROCKENER "
  68. 560 PRINT"    ZAHLEN IN IHREN BASIC PROGRAMMEN"
  69. 570 FOR T= 0 TO 63
  70. 580 !DRAW 31,T,31,6:NEXT
  71. 590 FOR T= 0 TO 11
  72. 600 READ V
  73. 610 FOR H= 29-V TO 29
  74. 620 !DRAW 31,T*4+4,H,T+1:NEXT
  75. 630 !SHOW 31:NEXT
  76. 640 PRINT"   1 2 3 4 5 6 7 8 9 1 1 1"
  77. 650 PRINT"                         0 1 2
  78. 1000 [131] 3,20,22,4,8,10
  79. 1010 [131] 1,29,24,14,21,12
  80.